﻿Public Class Form1
  Private Sub Form1_Load(ByVal sender _
          As System.Object, _
          ByVal e As System.EventArgs) _
          Handles MyBase.Load
    For i As Integer = 100 To 1 Step -1
      Me.Opacity = (100 - i) / 100
      System.Threading.Thread.Sleep(10)
      Application.DoEvents()
    Next
    System.Threading.Thread.Sleep(500)
    For i As Integer = 1 To 100
      Me.Opacity = (100 - i) / 100
      Application.DoEvents()
      System.Threading.Thread.Sleep(10)
    Next
  End Sub
End Class
